Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/citta/mi053.dir/00560_Script_560

Text File | 1983-01-31 | 2KB | 58 lines

on inizializza
  global canale_video,Canale_pallina,canale_audio,canale_articolo,canale_principio
  global pallina_chiusa,pallina_aperta,audio_nonbarrato,audio_barrato,video_aperto,testo_aperto,principio_aperto
  global video_esterno,audio_intro
  global At_hil_dacast,at_hil_quanti,at_hil_sprite
  global Viff_da,viff_a
  global lista_en_menu,lista_en_viaggio,lista_en_chiuso,lista_en_articolo,lista_en_principio,lista_en_video
  global dove_articolo,dove_principio,dove_video
  global video_bool,principio_bool,albero_bool,testo_bool,audio_bool,correlati_bool,viaggio_bool,inventore_bool
  global lista_curan,lista_curap,lista_curnu
  global Att_hilitec_dacast,att_hilitec_quanti,att_hilitec_sprite
  global olddove
  set olddove to 0
  set canale_video to 0
  set canale_pallina to 40
  set canale_audio to 39
  set canale_articolo to 45
  set canale_principio to 41
  set pallina_chiusa to 217
  set pallina_aperta to 215
  set audio_nonbarrato to 211
  set audio_barrato to 213
  set video_aperto to 0
  set testo_aperto to 207
  set principio_aperto to 203
  set audio_intro to "AI053fr"
  set video_esterno to ""
  set at_hil_dacast to 197
  set at_hil_quanti to 6
  set at_hil_sprite to 41
  set viff_da to 25
  set viff_a to 28
  set att_hilitec_dacast to 97
  set att_hilitec_quanti to 6
  set att_hilitec_sprite to 4
  set dove_video to 0
  set dove_principio to 1
  set dove_articolo to 5
  set video_bool to 0
  set audio_bool to 1
  set testo_bool to 1
  set principio_bool to 1
  set correlati_bool to 1
  set viaggio_bool to 1
  set inventore_bool to 1
  set albero_bool to 0
  set lista_en_menu to [1, 3, 39, 47]
  set lista_en_chiuso to [1, 3, 39, 47]
  set lista_en_articolo to [1, 7, 14, 16, 39, 47]
  set lista_en_principio to [1, 7, 39, 47]
  set lista_en_viaggio to [1, 10, 25, 28, 39, 47]
  set lista_en_video to []
  set lista_curan to [8, 6, 7]
  set lista_curap to [9]
  set lista_curnu to []
end